inherited frmFixAssetChange: TfrmFixAssetChange
  Left = 442
  Top = 169
  Caption = #22266#23450#36164#20135#21464#21160
  ClientHeight = 503
  ClientWidth = 753
  FormStyle = fsMDIChild
  Visible = True
  ExplicitWidth = 769
  ExplicitHeight = 542
  DesignSize = (
    753
    503)
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBottom: TPanel
    Top = 443
    Width = 753
    ExplicitTop = 443
    ExplicitWidth = 753
    DesignSize = (
      753
      60)
    inherited Bevel1: TBevel
      Width = 753
      ExplicitWidth = 629
    end
    inherited btnOK: TBitBtn
      Left = 570
      Top = 20
      ExplicitLeft = 570
      ExplicitTop = 20
    end
    inherited btnCancel: TBitBtn
      Left = 660
      Top = 20
      ExplicitLeft = 660
      ExplicitTop = 20
    end
    inherited btnContinue: TBitBtn
      Left = 13
      Top = 20
      ExplicitLeft = 13
      ExplicitTop = 20
    end
    inherited btnPri: TBitBtn
      Left = 115
      Top = 20
      ExplicitLeft = 115
      ExplicitTop = 20
    end
    inherited btnNext: TBitBtn
      Left = 207
      Top = 20
      ExplicitLeft = 207
      ExplicitTop = 20
    end
    inherited btnBaseEditSave: TBitBtn
      Left = 309
      Top = 20
      ExplicitLeft = 309
      ExplicitTop = 20
    end
  end
  object pnl1: TPanel [1]
    Left = 0
    Top = 41
    Width = 753
    Height = 74
    Align = alTop
    BevelOuter = bvNone
    BiDiMode = bdRightToLeft
    Color = 16773345
    Ctl3D = True
    ParentBiDiMode = False
    ParentBackground = False
    ParentCtl3D = False
    TabOrder = 5
    object cxLabel1: TcxLabel
      Left = 55
      Top = 22
      BiDiMode = bdLeftToRight
      Caption = #21464#21160#21333#21495#65306
      ParentBiDiMode = False
      Transparent = True
    end
    object cxLabel2: TcxLabel
      Left = 32
      Top = 53
      BiDiMode = bdLeftToRight
      Caption = #22266#23450#36164#20135#32534#21495#65306
      ParentBiDiMode = False
      Transparent = True
    end
    object cxLabel3: TcxLabel
      Left = 368
      Top = 21
      BiDiMode = bdLeftToRight
      Caption = #21464#21160#31867#22411#65306
      ParentBiDiMode = False
      Transparent = True
    end
    object cxLabel4: TcxLabel
      Left = 344
      Top = 53
      BiDiMode = bdLeftToRight
      Caption = #22266#23450#36164#20135#21517#31216#65306
      ParentBiDiMode = False
      Transparent = True
    end
    object cbbModType: TcxDBLookupComboBox
      Tag = 106
      Left = 432
      Top = 19
      DataBinding.DataField = 'modtypeid'
      DataBinding.DataSource = MainDataSource
      Properties.ListColumns = <>
      Properties.OnChange = cbbModTypePropertiesChange
      TabOrder = 5
      Width = 145
    end
    object cbbAstCode: TcxDBLookupComboBox
      Left = 120
      Top = 51
      DataBinding.DataField = 'fixedassetid'
      DataBinding.DataSource = MainDataSource
      Properties.GridMode = True
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'fixedassetid'
      Properties.ListColumns = <
        item
          Caption = #32534#21495
          FieldName = 'assetcode'
        end
        item
          Caption = #21517#31216
          FieldName = 'name'
        end>
      Properties.ListOptions.SyncMode = True
      Properties.ListSource = dsAsset
      TabOrder = 6
      Width = 145
    end
    object edtCode: TcxDBTextEdit
      Left = 120
      Top = 19
      DataBinding.DataField = 'code'
      DataBinding.DataSource = MainDataSource
      Properties.OnChange = edtCodeChange
      TabOrder = 0
      Width = 145
    end
    object edtAstName: TcxDBTextEdit
      Left = 432
      Top = 51
      DataBinding.DataField = 'name'
      DataBinding.DataSource = MainDataSource
      Enabled = False
      TabOrder = 7
      Width = 145
    end
  end
  object pnl3: TPanel [2]
    Left = 0
    Top = 408
    Width = 753
    Height = 37
    Align = alTop
    Anchors = [akLeft, akRight]
    BevelOuter = bvNone
    BiDiMode = bdRightToLeftNoAlign
    Color = 16773345
    ParentBiDiMode = False
    ParentBackground = False
    TabOrder = 6
    object cxLabel5: TcxLabel
      Left = 56
      Top = 8
      BiDiMode = bdLeftToRight
      Caption = #21464#21160#26085#26399#65306
      ParentBiDiMode = False
    end
    object cxLabel6: TcxLabel
      Left = 380
      Top = 8
      BiDiMode = bdLeftToRight
      Caption = #32463#25163#20154#65306
      ParentBiDiMode = False
    end
    object cxdbdtdtChangeDate: TcxDBDateEdit
      Left = 120
      Top = 6
      DataBinding.DataField = 'changedate'
      DataBinding.DataSource = MainDataSource
      TabOrder = 2
      Width = 145
    end
    object cbbOperator: TcxDBLookupComboBox
      Tag = 4
      Left = 432
      Top = 6
      DataBinding.DataField = 'create_by'
      DataBinding.DataSource = MainDataSource
      Properties.ListColumns = <>
      TabOrder = 3
      Width = 145
    end
  end
  object pnl13: TPanel [3]
    Left = 0
    Top = 0
    Width = 753
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Color = 16773345
    TabOrder = 3
    object clbr1: TCoolBar
      Left = 0
      Top = 0
      Width = 128
      Height = 41
      Align = alLeft
      Bands = <>
      Vertical = True
      object sbtnSDelete: TSpeedButton
        Left = 86
        Top = -5
        Width = 38
        Height = 40
        Hint = #21024#38500
        Caption = #21024#38500
        Flat = True
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF000000
          00000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF000000
          FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF000000
          00000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF000000FF000000FF000000FF0000000000000000000000
          FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000FF000000FF000000
          0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00000000000000FF000000FF000000FF000000FF000000
          FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF0000000000000000000000FF000000FF000000FF00FFFFFF00FFFFFF000000
          FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          00000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          FF000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF000000
          FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
        Layout = blGlyphTop
        ParentShowHint = False
        ShowHint = True
        OnClick = sbtnSDeleteClick
      end
      object sbtnSNew: TSpeedButton
        Left = 6
        Top = -5
        Width = 38
        Height = 40
        Hint = #22686#21152
        Caption = #26032#22686
        Flat = True
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
          FF00FFFFFF000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000000000FFFFFF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF
          BF00BFBFBF00BFBFBF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000000000FFFFFF00BFBFBF00BFBFBF00BFBFBF00FFFFFF00BFBF
          BF00BFBFBF00BFBFBF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BFBF
          BF00BFBFBF00BFBFBF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000000000FFFFFF00BFBFBF00BFBFBF00BFBFBF00FFFFFF00BFBF
          BF00BFBFBF00BFBFBF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          0000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000000000FFFFFF00BFBFBF0000007F0000007F0000000000FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00000000000000000000007F0000007F0000007F0000000000FFFF
          FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
          FF00FFFFFF000000000000007F000000FF000000FF000000FF0000000000FFFF
          FF0000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF0000007F0000007F000000FF0000007F0000000000FFFFFF00FFFF
          FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF0000007F000000FF000000FF0000007F000000FF0000000000FFFFFF00FFFF
          FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
          7F000000FF000000FF0000007F000000FF000000000000000000000000000000
          000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000007F000000
          FF0000007F0000007F0000007F0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000007F000000
          7F0000007F0000007F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
        Layout = blGlyphTop
        ParentShowHint = False
        ShowHint = True
        OnClick = btnContinueClick
      end
      object sbtnSSave: TSpeedButton
        Left = 46
        Top = -5
        Width = 38
        Height = 40
        Hint = #20445#23384
        Caption = #20445#23384'&'
        Flat = True
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
          FF00FFFFFF000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00000000004A4A4A0000000000C2C2C200C2C2C2009E9E9E009E9E9E009E9E
          9E00000000004A4A4A004A4A4A0000000000FFFFFF00FFFFFF00FFFFFF000000
          00005656560056565600000000009E9E9E00C2C2C200C2C2C200C2C2C2009E9E
          9E0000000000565656004A4A4A0000000000FFFFFF00FFFFFF00FFFFFF000000
          00006262620056565600000000000E0E0E000E0E0E000E0E0E000E0E0E000E0E
          0E0000000000565656005656560000000000FFFFFF00FFFFFF00FFFFFF000000
          000062626200626262004A4A4A004A4A4A004A4A4A004A4A4A004A4A4A004A4A
          4A004A4A4A00626262005656560000000000FFFFFF00FFFFFF00FFFFFF000000
          00006E6E6E006E6E6E0062626200626262006262620062626200626262006262
          620062626200626262006262620000000000FFFFFF00FFFFFF00FFFFFF000000
          00007A7A7A006E6E6E006E6E6E006E6E6E006E6E6E006E6E6E006E6E6E006E6E
          6E006E6E6E006E6E6E006262620000000000FFFFFF00FFFFFF00FFFFFF000000
          00007A7A7A003232320032323200323232003232320032323200323232003232
          320032323200323232006E6E6E0000000000FFFFFF00FFFFFF00FFFFFF000000
          00008686860000000000E6E6E600E6E6E600E6E6E600E6E6E600E6E6E600E6E6
          E600E6E6E600323232007A7A7A0000000000FFFFFF00FFFFFF00FFFFFF000000
          00009292920000000000E6E6E6004848FF006B6BFF008E8EFF00B1B1FF00B1B1
          FF00E6E6E600323232008686860000000000FFFFFF00FFFFFF00FFFFFF000000
          00009E9E9E0000000000E6E6E600E6E6E600E6E6E600E6E6E600E6E6E600E6E6
          E600E6E6E600323232009292920000000000FFFFFF00FFFFFF00FFFFFF000000
          0000AAAAAA0000000000E6E6E6004848FF004848FF006B6BFF008E8EFF00B1B1
          FF00E6E6E600323232009E9E9E0000000000FFFFFF00FFFFFF00FFFFFF000000
          0000AAAAAA0000000000E6E6E600E6E6E600E6E6E600E6E6E600E6E6E600E6E6
          E600E6E6E60032323200AAAAAA0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
        Layout = blGlyphTop
        ParentShowHint = False
        ShowHint = True
        OnClick = btnOKClick
      end
    end
    object btnCreateVoucher: TcxButton
      Left = 144
      Top = 11
      Width = 75
      Height = 23
      Hint = #21024#38500#20973#35777
      Caption = #21024#38500#20973#35777
      Colors.Default = 16773345
      TabOrder = 2
      OnClick = btnCreateVoucherClick
    end
    object btnLoadVoucher: TcxButton
      Left = 225
      Top = 11
      Width = 75
      Height = 23
      Hint = #35843#38405#20973#35777
      Caption = #35843#38405#20973#35777
      Colors.Default = 16773345
      Enabled = False
      TabOrder = 1
      OnClick = btnLoadVoucherClick
    end
  end
  object pnl2: TPanel [4]
    Left = 0
    Top = 115
    Width = 753
    Height = 293
    Align = alTop
    BevelOuter = bvNone
    Color = 16773345
    TabOrder = 4
    object pgc1: TPageControl
      Left = 0
      Top = 0
      Width = 753
      Height = 291
      ActivePage = tsAstRemainRateChange
      Align = alTop
      BiDiMode = bdLeftToRight
      DragMode = dmAutomatic
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      HotTrack = True
      MultiLine = True
      ParentBiDiMode = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Style = tsButtons
      TabOrder = 0
      object tsAstDepartChange: TTabSheet
        Caption = 'tsAstDepartChange'
        TabVisible = False
        object bvl3: TBevel
          Left = 45
          Top = 2
          Width = 513
          Height = 2
        end
        object bvl4: TBevel
          Left = 61
          Top = 279
          Width = 513
          Height = 2
        end
        object cxLabel9: TcxLabel
          Left = 363
          Top = 217
          Caption = #26032#23384#25918#28857#65306
        end
        object cxLabel8: TcxLabel
          Left = 39
          Top = 113
          Caption = #21464#21160#21518#37096#38376#65306
        end
        object cxLabel7: TcxLabel
          Left = 39
          Top = 9
          Caption = #21464#21160#21069#37096#38376#65306
        end
        object cxLabel11: TcxLabel
          Left = 51
          Top = 217
          Caption = #21407#23384#25918#28857#65306
        end
        object cxLabel10: TcxLabel
          Left = 51
          Top = 249
          Caption = #21464#21160#21407#22240#65306
        end
        object grdNewOwnerDep: TcxGrid
          Left = 116
          Top = 113
          Width = 457
          Height = 89
          PopupMenu = pmGrid
          TabOrder = 5
          object cxgrdNew: TcxGridDBTableView
            Navigator.Buttons.CustomButtons = <>
            DataController.DataSource = dsModOwerDepNew
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            OptionsView.GroupByBox = False
            object cxgrdbclmnNewDepName: TcxGridDBColumn
              Caption = #20351#29992#37096#38376#21517#31216
              DataBinding.FieldName = 'deptid'
              Width = 141
            end
            object cxgrdbclmnNewOwnerRate: TcxGridDBColumn
              Caption = #25152#21344#27604#29575
              DataBinding.FieldName = 'ownerrate'
              Width = 124
            end
            object cxgrdbclmnNewSubName: TcxGridDBColumn
              Caption = #23545#24212#25240#26087#31185#30446
              DataBinding.FieldName = 'subjectid'
              Width = 133
            end
          end
          object cxGridLevel1: TcxGridLevel
            GridView = cxgrdNew
          end
        end
        object grdOldOwnerDep: TcxGrid
          Left = 116
          Top = 9
          Width = 457
          Height = 89
          TabOrder = 6
          object cxgrdOld: TcxGridDBTableView
            Navigator.Buttons.CustomButtons = <>
            DataController.DataSource = dsModOwerDepOld
            DataController.DetailKeyFieldNames = 'deptid'
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            OptionsView.GroupByBox = False
            object cxgrdbclmnOldDepName: TcxGridDBColumn
              Caption = #20351#29992#37096#38376#21517#31216
              DataBinding.FieldName = 'deptid'
              Width = 141
            end
            object cxgrdbclmnOldOwnerRate: TcxGridDBColumn
              Caption = #25152#21344#27604#29575
              DataBinding.FieldName = 'ownerrate'
              Width = 124
            end
            object cxgrdbclmnOldSubName: TcxGridDBColumn
              Caption = #23545#24212#25240#26087#31185#30446
              DataBinding.FieldName = 'subjectid'
              Width = 133
            end
          end
          object cxGridLevel2: TcxGridLevel
            GridView = cxgrdOld
          end
        end
        object edtOldLocation: TcxDBTextEdit
          Left = 116
          Top = 215
          DataBinding.DataField = 'oldlocation'
          DataBinding.DataSource = MainDataSource
          TabOrder = 7
          Width = 145
        end
        object edtNewLocation: TcxDBTextEdit
          Left = 428
          Top = 215
          DataBinding.DataField = 'newlocation'
          DataBinding.DataSource = MainDataSource
          TabOrder = 8
          Width = 145
        end
        object edtReason: TcxDBTextEdit
          Left = 116
          Top = 247
          DataBinding.DataField = 'changereason'
          DataBinding.DataSource = MainDataSource
          TabOrder = 9
          Width = 457
        end
      end
      object tsAstDepreciateChange: TTabSheet
        Caption = 'tsAstDepreciateChange'
        ImageIndex = 1
        TabVisible = False
        object pnl4: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alClient
          BevelOuter = bvNone
          Color = 16773345
          TabOrder = 0
          object bvl1: TBevel
            Left = 45
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl2: TBevel
            Left = 37
            Top = 157
            Width = 513
            Height = 2
          end
          object cxlblNEWSUMWORKEDVALUE: TcxLabel
            Left = 351
            Top = 53
            Caption = #32047#35745#24037#20316#37327#65306
            Transparent = True
            Visible = False
          end
          object cxlblNEWPLANWORKVALUE: TcxLabel
            Left = 27
            Top = 53
            Caption = #39044#35745#24037#20316#24635#37327#65306
            Visible = False
          end
          object cxLabel12: TcxLabel
            Left = 15
            Top = 19
            Caption = #21464#21160#21069#25240#26087#26041#27861#65306
            Transparent = True
          end
          object cxlbllNEWPLANUSEMONTH: TcxLabel
            Left = 27
            Top = 53
            Caption = #39044#35745#20351#29992#26376#20221#65306
            Transparent = True
            Visible = False
          end
          object cxlbllWorkUnit: TcxLabel
            Left = 39
            Top = 91
            Caption = #24037#20316#37327#21333#20301#65306
            Transparent = True
            Visible = False
          end
          object cxLabel15: TcxLabel
            Left = 51
            Top = 127
            Caption = #21464#21160#21407#22240#65306
            Transparent = True
          end
          object cxLabel16: TcxLabel
            Left = 327
            Top = 19
            Caption = #21464#21160#21518#25240#26087#26041#27861#65306
            Transparent = True
          end
          object cxlbllNEWSUMUSEDMONTH: TcxLabel
            Left = 351
            Top = 53
            Caption = #24050#35745#25552#26376#20221#65306
            Transparent = True
            Visible = False
          end
          object cbbOldDeprMethod: TcxDBLookupComboBox
            Tag = 68
            Left = 116
            Top = 15
            DataBinding.DataField = 'olddeprmethodid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            Properties.ReadOnly = True
            Properties.OnChange = cbbNewDeprMethodPropertiesChange
            TabOrder = 0
            Width = 145
          end
          object cbbNewDeprMethod: TcxDBLookupComboBox
            Tag = 68
            Left = 428
            Top = 15
            DataBinding.DataField = 'newdeprmethodid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            Properties.OnChange = cbbNewDeprMethodPropertiesChange
            TabOrder = 1
            Width = 145
          end
          object cxlblWarning: TcxLabel
            Left = 336
            Top = 88
            AutoSize = False
            Caption = #21464#21160#21518#25240#26087#26041#27861#20026#24179#22343#24180#38480#27861#65292#31995#32479#23558#33258#21160#25353#20928#20540#21644#21097#20313#20351#29992#26399#38388#35745#25552#25240#26087
            ParentFont = False
            Style.Font.Charset = GB2312_CHARSET
            Style.Font.Color = clRed
            Style.Font.Height = -12
            Style.Font.Name = #23435#20307
            Style.Font.Style = []
            Style.IsFontAssigned = True
            Properties.LineOptions.InnerColor = clNone
            Properties.WordWrap = True
            Transparent = True
            Visible = False
            Height = 41
            Width = 233
          end
          object edtChangeReason: TcxDBTextEdit
            Left = 116
            Top = 125
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 11
            Width = 457
          end
          object edtnewplanworkvalue1: TcxDBSpinEdit
            Left = 116
            Top = 51
            DataBinding.DataField = 'newplanworkvalue'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtFloat
            TabOrder = 14
            Width = 145
          end
          object edtnewsumworkedvalue: TcxDBSpinEdit
            Left = 428
            Top = 51
            DataBinding.DataField = 'newsumworkedvalue'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtFloat
            TabOrder = 15
            Width = 145
          end
          object edtNewPlanUseMonth: TcxDBSpinEdit
            Left = 116
            Top = 51
            DataBinding.DataField = 'newplanusemonth'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtInt
            TabOrder = 12
            Width = 145
          end
          object edtNewSumUsedMonth: TcxDBSpinEdit
            Left = 428
            Top = 51
            DataBinding.DataField = 'newsumusedmonth'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtInt
            TabOrder = 13
            Width = 145
          end
          object edtWorkUnit: TcxDBTextEdit
            Left = 116
            Top = 89
            DataBinding.DataField = 'workunit'
            DataBinding.DataSource = MainDataSource
            TabOrder = 16
            Width = 145
          end
        end
      end
      object tsAstRawValueChange: TTabSheet
        Caption = 'tsAstRawValueChange'
        ImageIndex = 2
        TabVisible = False
        object pnl5: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alClient
          Anchors = []
          BevelOuter = bvNone
          Color = 16773345
          Ctl3D = True
          UseDockManager = False
          DragMode = dmAutomatic
          ParentCtl3D = False
          TabOrder = 0
          object bvl5: TBevel
            Left = 53
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl6: TBevel
            Left = 53
            Top = 237
            Width = 513
            Height = 2
          end
          object cxLabel18: TcxLabel
            Left = 39
            Top = 17
            Caption = #21464#21160#21069#21333#20215#65306
          end
          object cxLabel19: TcxLabel
            Left = 39
            Top = 55
            Caption = #21464#21160#21069#21407#20540#65306
          end
          object cxLabel20: TcxLabel
            Left = 39
            Top = 90
            Caption = #21464#21160#21518#21333#20215#65306
          end
          object cxLabel21: TcxLabel
            Left = 39
            Top = 126
            Caption = #21464#21160#21518#21407#20540#65306
          end
          object cxLabel22: TcxLabel
            Left = 51
            Top = 163
            Caption = #23545#26041#31185#30446#65306
          end
          object cxLabel23: TcxLabel
            Left = 51
            Top = 201
            Caption = #21464#21160#21407#22240#65306
          end
          object cxLabel24: TcxLabel
            Left = 351
            Top = 17
            Caption = #21464#21160#21069#25968#20540#65306
          end
          object cxLabel25: TcxLabel
            Left = 339
            Top = 55
            Caption = #21464#21160#21069#20928#27531#20540#65306
          end
          object cxLabel26: TcxLabel
            Left = 351
            Top = 90
            Caption = #21464#21160#21518#25968#20540#65306
          end
          object cxLabel27: TcxLabel
            Left = 339
            Top = 126
            Caption = #21464#21160#21518#20928#27531#20540#65306
          end
          object cbbOtherSubjectID: TcxDBLookupComboBox
            Tag = 63
            Left = 116
            Top = 161
            DataBinding.DataField = 'subjectid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            TabOrder = 10
            Width = 145
          end
          object edtchangereason1: TcxDBTextEdit
            Left = 116
            Top = 198
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 11
            Width = 457
          end
          object edtOldPrice: TcxDBCurrencyEdit
            Left = 116
            Top = 16
            DataBinding.DataField = 'oldprice'
            DataBinding.DataSource = MainDataSource
            TabOrder = 12
            Width = 145
          end
          object edtOldRawAmt: TcxDBCurrencyEdit
            Left = 116
            Top = 54
            DataBinding.DataField = 'oldrawamt'
            DataBinding.DataSource = MainDataSource
            TabOrder = 13
            Width = 145
          end
          object edtNewPrice: TcxDBCurrencyEdit
            Left = 116
            Top = 88
            DataBinding.DataField = 'newprice'
            DataBinding.DataSource = MainDataSource
            TabOrder = 14
            Width = 145
          end
          object edtNewRawAmt: TcxDBCurrencyEdit
            Left = 116
            Top = 124
            DataBinding.DataField = 'newrawamt'
            DataBinding.DataSource = MainDataSource
            TabOrder = 15
            Width = 145
          end
          object edtOldRemainAmt: TcxDBCurrencyEdit
            Left = 428
            Top = 53
            DataBinding.DataField = 'oldremainamt'
            DataBinding.DataSource = MainDataSource
            TabOrder = 16
            Width = 145
          end
          object edtNewRemainAmt: TcxDBCurrencyEdit
            Left = 428
            Top = 124
            DataBinding.DataField = 'newremainamt'
            DataBinding.DataSource = MainDataSource
            TabOrder = 17
            Width = 145
          end
          object edtOldQuantity: TcxDBSpinEdit
            Left = 428
            Top = 16
            DataBinding.DataField = 'oldquantity'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtFloat
            TabOrder = 18
            Width = 145
          end
          object edtNewQuantity: TcxDBSpinEdit
            Left = 428
            Top = 88
            DataBinding.DataField = 'newquantity'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtFloat
            TabOrder = 19
            Width = 145
          end
        end
      end
      object tsAstRemainRateChange: TTabSheet
        Caption = 'tsAstRemainRateChange'
        ImageIndex = 3
        TabVisible = False
        object pnl6: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alClient
          BevelOuter = bvNone
          Color = 16773345
          TabOrder = 0
          object bvl7: TBevel
            Left = 45
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl8: TBevel
            Left = 45
            Top = 131
            Width = 513
            Height = 2
          end
          object cxLabel28: TcxLabel
            Left = 15
            Top = 24
            Caption = #21464#21160#21069#20928#27531#20540#29575#65306
          end
          object cxLabel29: TcxLabel
            Left = 15
            Top = 62
            Caption = #21464#21160#21518#20928#27531#20540#29575#65306
          end
          object cxLabel30: TcxLabel
            Left = 51
            Top = 98
            Caption = #21464#21160#21407#22240#65306
          end
          object cxLabel31: TcxLabel
            Left = 264
            Top = 62
            Caption = '%'
          end
          object cxLabel32: TcxLabel
            Left = 339
            Top = 24
            Caption = #21464#21160#21069#20928#27531#20540#65306
          end
          object cxLabel33: TcxLabel
            Left = 339
            Top = 62
            Caption = #21464#21160#21518#20928#27531#20540#65306
          end
          object cxLabel34: TcxLabel
            Left = 264
            Top = 24
            Caption = '%'
          end
          object edtchangereason2: TcxDBTextEdit
            Left = 116
            Top = 96
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 7
            Width = 457
          end
          object edtNewRemainAmtT: TcxDBCurrencyEdit
            Left = 428
            Top = 60
            DataBinding.DataField = 'newremainamt'
            DataBinding.DataSource = MainDataSource
            TabOrder = 8
            Width = 145
          end
          object edtOldRemainAmtT: TcxDBCurrencyEdit
            Left = 428
            Top = 22
            DataBinding.DataField = 'oldremainamt'
            DataBinding.DataSource = MainDataSource
            TabOrder = 9
            Width = 145
          end
          object edtOldRemainRate: TcxDBSpinEdit
            Left = 116
            Top = 22
            DataBinding.DataField = 'oldremainrate'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtFloat
            TabOrder = 10
            Width = 145
          end
          object edtNewRemainRate: TcxDBSpinEdit
            Left = 116
            Top = 60
            DataBinding.DataField = 'newremainrate'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtFloat
            TabOrder = 11
            Width = 145
          end
        end
      end
      object tsAstStatusChange: TTabSheet
        Caption = 'tsAstStatusChange'
        ImageIndex = 4
        TabVisible = False
        object pnl7: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alClient
          BevelOuter = bvNone
          Color = 16773345
          TabOrder = 0
          object bvl9: TBevel
            Left = 45
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl10: TBevel
            Left = 45
            Top = 91
            Width = 513
            Height = 2
          end
          object cxLabel35: TcxLabel
            Left = 15
            Top = 24
            Caption = #21464#21160#21069#20351#29992#29366#20917#65306
          end
          object cxLabel36: TcxLabel
            Left = 51
            Top = 60
            Caption = #21464#21160#21407#22240#65306
          end
          object cxLabel37: TcxLabel
            Left = 327
            Top = 24
            Caption = #21464#21160#21518#20351#29992#29366#20917#65306
          end
          object cbboldstatusid: TcxDBLookupComboBox
            Tag = 104
            Left = 116
            Top = 20
            DataBinding.DataField = 'oldstatusid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            Properties.ReadOnly = True
            TabOrder = 3
            Width = 145
          end
          object cbbnewstatusid: TcxDBLookupComboBox
            Tag = 104
            Left = 428
            Top = 20
            DataBinding.DataField = 'newstatusid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            TabOrder = 4
            Width = 145
          end
          object edtchangereason3: TcxDBTextEdit
            Left = 116
            Top = 58
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 5
            Width = 457
          end
        end
      end
      object tsAstUsedValueChange: TTabSheet
        Caption = 'tsAstUsedValueChange'
        ImageIndex = 5
        TabVisible = False
        object pnl8: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alClient
          BevelOuter = bvNone
          Color = 16773345
          TabOrder = 0
          object bvl11: TBevel
            Left = 45
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl12: TBevel
            Left = 45
            Top = 125
            Width = 513
            Height = 2
          end
          object cxLabel38: TcxLabel
            Left = 15
            Top = 24
            Caption = #21464#21160#21069#32047#35745#25240#26087#65306
          end
          object cxLabel39: TcxLabel
            Left = 51
            Top = 60
            Caption = #23545#26041#31185#30446#65306
          end
          object cxLabel40: TcxLabel
            Left = 327
            Top = 24
            Caption = #21464#21160#21518#32047#35745#25240#26087#65306
          end
          object cxLabel41: TcxLabel
            Left = 51
            Top = 96
            Caption = #21464#21160#21407#22240#65306
          end
          object edtSubjectid: TcxDBLookupComboBox
            Tag = 63
            Left = 121
            Top = 59
            DataBinding.DataField = 'subjectid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            TabOrder = 5
            Width = 145
          end
          object edtchangereason4: TcxDBTextEdit
            Left = 116
            Top = 94
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 6
            Width = 457
          end
          object edtoldsumdepramt: TcxDBCurrencyEdit
            Left = 116
            Top = 22
            DataBinding.DataField = 'oldsumdepramt'
            DataBinding.DataSource = MainDataSource
            TabOrder = 0
            Width = 145
          end
          object edtnewsumdepramt: TcxDBCurrencyEdit
            Left = 427
            Top = 22
            DataBinding.DataField = 'newsumdepramt'
            DataBinding.DataSource = MainDataSource
            TabOrder = 7
            Width = 145
          end
        end
      end
      object tsAstWorkGrossChange: TTabSheet
        Caption = 'tsAstWorkGrossChange'
        ImageIndex = 6
        TabVisible = False
        object pnl9: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alClient
          BevelOuter = bvNone
          Color = 16773345
          TabOrder = 0
          object bvl13: TBevel
            Left = 45
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl14: TBevel
            Left = 45
            Top = 92
            Width = 513
            Height = 2
          end
          object cxLabel42: TcxLabel
            Left = 15
            Top = 24
            Caption = #21464#21160#21069#24037#20316#24635#37327#65306
          end
          object cxLabel43: TcxLabel
            Left = 327
            Top = 24
            Caption = #21464#21160#21518#24037#20316#24635#37327#65306
          end
          object cxLabel44: TcxLabel
            Left = 51
            Top = 62
            Caption = #21464#21160#21407#22240#65306
          end
          object edtchangereason5: TcxDBTextEdit
            Left = 116
            Top = 60
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 3
            Width = 457
          end
          object edtoldplanworkvalue: TcxDBSpinEdit
            Left = 116
            Top = 23
            DataBinding.DataField = 'oldplanworkvalue'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtFloat
            TabOrder = 4
            Width = 145
          end
          object edtnewplanworkvalue: TcxDBSpinEdit
            Left = 428
            Top = 23
            DataBinding.DataField = 'newplanworkvalue'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtFloat
            TabOrder = 5
            Width = 145
          end
        end
      end
      object tsAstWorkLoadChange: TTabSheet
        Caption = 'tsAstWorkLoadChange'
        ImageIndex = 7
        TabVisible = False
        object pnl10: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alClient
          BevelOuter = bvNone
          Color = 16773345
          TabOrder = 0
          object bvl15: TBevel
            Left = 45
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl16: TBevel
            Left = 45
            Top = 90
            Width = 513
            Height = 2
          end
          object cxLabel45: TcxLabel
            Left = 3
            Top = 24
            Caption = #21464#21069#39044#35745#20351#29992#26376#20221#65306
          end
          object cxLabel46: TcxLabel
            Left = 51
            Top = 61
            Caption = #21464#21160#21407#22240#65306
          end
          object cxLabel47: TcxLabel
            Left = 309
            Top = 24
            Caption = ' '#21464#21518#39044#35745#20351#29992#26376#20221#65306
          end
          object edtchangereason6: TcxDBTextEdit
            Left = 116
            Top = 59
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 3
            Width = 457
          end
          object edtoldplanusemonth: TcxDBSpinEdit
            Left = 116
            Top = 22
            DataBinding.DataField = 'oldplanusemonth'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtInt
            TabOrder = 4
            Width = 145
          end
          object edtnewplanusemonth1: TcxDBSpinEdit
            Left = 428
            Top = 22
            DataBinding.DataField = 'newplanusemonth'
            DataBinding.DataSource = MainDataSource
            Properties.DisplayFormat = '0.0000'
            Properties.EditFormat = '0.0000'
            Properties.ValueType = vtInt
            TabOrder = 5
            Width = 145
          end
        end
      end
      object tsAstSubChange: TTabSheet
        Caption = 'tsAstSubChange'
        ImageIndex = 8
        TabVisible = False
        object pnl11: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alClient
          BevelOuter = bvNone
          Color = 16773345
          TabOrder = 0
          object bvl17: TBevel
            Left = 45
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl18: TBevel
            Left = 37
            Top = 89
            Width = 513
            Height = 2
          end
          object cxLabel48: TcxLabel
            Left = 3
            Top = 24
            Caption = #21464#21069#22266#23450#36164#20135#31185#30446#65306
          end
          object cxLabel49: TcxLabel
            Left = 51
            Top = 60
            Caption = #21464#21160#21407#22240#65306
          end
          object cxLabel50: TcxLabel
            Left = 315
            Top = 24
            Caption = #21464#21518#22266#23450#36164#20135#31185#30446#65306
          end
          object cbboldastsubid: TcxDBLookupComboBox
            Tag = 63
            Left = 116
            Top = 20
            DataBinding.DataField = 'oldastsubid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            Properties.ReadOnly = True
            TabOrder = 3
            Width = 145
          end
          object cbbnewastsubid: TcxDBLookupComboBox
            Tag = 63
            Left = 428
            Top = 20
            DataBinding.DataField = 'newastsubid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            TabOrder = 4
            Width = 145
          end
          object edtchangereason7: TcxDBTextEdit
            Left = 116
            Top = 58
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 5
            Width = 457
          end
        end
      end
      object tsDprSubChange: TTabSheet
        Caption = 'tsDprSubChange'
        ImageIndex = 9
        TabVisible = False
        object pnl12: TPanel
          Left = 0
          Top = 0
          Width = 745
          Height = 281
          Align = alTop
          BevelOuter = bvNone
          Color = 16773345
          TabOrder = 0
          object bvl19: TBevel
            Left = 45
            Top = 2
            Width = 513
            Height = 2
          end
          object bvl20: TBevel
            Left = 45
            Top = 90
            Width = 513
            Height = 2
          end
          object cxLabel51: TcxLabel
            Left = 3
            Top = 24
            Caption = #21464#21069#32047#35745#25240#26087#31185#30446#65306
          end
          object cxLabel52: TcxLabel
            Left = 51
            Top = 60
            Caption = #21464#21160#21407#22240#65306
          end
          object cxLabel53: TcxLabel
            Left = 315
            Top = 24
            Caption = #21464#21518#32047#35745#25240#26087#31185#30446#65306
          end
          object edtchangereason8: TcxDBTextEdit
            Left = 116
            Top = 58
            DataBinding.DataField = 'changereason'
            DataBinding.DataSource = MainDataSource
            TabOrder = 3
            Width = 457
          end
          object edtolddepsubid: TcxDBLookupComboBox
            Tag = 63
            Left = 116
            Top = 22
            DataBinding.DataField = 'olddepsubid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            Properties.ReadOnly = True
            TabOrder = 4
            Width = 145
          end
          object edtnewdepsubid: TcxDBLookupComboBox
            Tag = 63
            Left = 428
            Top = 22
            DataBinding.DataField = 'newdepsubid'
            DataBinding.DataSource = MainDataSource
            Properties.ListColumns = <>
            TabOrder = 5
            Width = 145
          end
        end
      end
    end
  end
  inherited btnPrint: TcxButton
    Left = 553
    Top = 9
    ExplicitLeft = 553
    ExplicitTop = 9
  end
  inherited edtPrint: TcxLookupComboBox
    Left = 625
    Top = 11
    ExplicitLeft = 625
    ExplicitTop = 11
    ExplicitHeight = 20
  end
  inherited MainDataSource: TDataSource
    DataSet = cdsMaster
    Left = 214
    Top = 119
  end
  inherited qryDynDtl: TUniQuery
    Left = 304
    Top = 48
  end
  object cdsMaster: TClientDataSet
    Tag = 1
    Aggregates = <>
    Params = <>
    ProviderName = 'dspMaster'
    Left = 168
    Top = 117
    object intgrfldMasterfaadjid: TIntegerField
      FieldName = 'faadjid'
    end
    object intgrfldMastermodtypeid: TIntegerField
      FieldName = 'modtypeid'
    end
    object intgrfldMasterfixedassetid: TIntegerField
      FieldName = 'fixedassetid'
    end
    object intgrfldMastercreate_by: TIntegerField
      FieldName = 'create_by'
    end
    object intgrfldMasterfilid: TIntegerField
      FieldName = 'filid'
    end
    object intgrfldMasteroldstatusid: TIntegerField
      FieldName = 'oldstatusid'
    end
    object intgrfldMasternewstatusid: TIntegerField
      FieldName = 'newstatusid'
    end
    object intgrfldMasterolddeprmethodid: TIntegerField
      FieldName = 'olddeprmethodid'
    end
    object intgrfldMasternewdeprmethodid: TIntegerField
      FieldName = 'newdeprmethodid'
    end
    object intgrfldMastervoucherid: TIntegerField
      FieldName = 'voucherid'
    end
    object cdsMastercode: TStringField
      FieldName = 'code'
      Size = 30
    end
    object cdsMasterchangedate: TDateTimeField
      FieldName = 'changedate'
    end
    object cdsMasterchangereason: TStringField
      FieldName = 'changereason'
      Size = 100
    end
    object cdsMasterworkunit: TStringField
      FieldName = 'workunit'
      Size = 10
    end
    object fltfldMasteroldrawamt: TFloatField
      FieldName = 'oldrawamt'
    end
    object fltfldMasternewrawamt: TFloatField
      FieldName = 'newrawamt'
    end
    object intgrfldMasteroldplanusemonth: TIntegerField
      FieldName = 'oldplanusemonth'
    end
    object intgrfldMasternewplanusemonth: TIntegerField
      FieldName = 'newplanusemonth'
    end
    object fltfldMasteroldsumdepramt: TFloatField
      FieldName = 'oldsumdepramt'
    end
    object fltfldMasternewsumdepramt: TFloatField
      FieldName = 'newsumdepramt'
    end
    object fltfldMasteroldplanworkvalue: TFloatField
      FieldName = 'oldplanworkvalue'
    end
    object fltfldMasternewplanworkvalue: TFloatField
      FieldName = 'newplanworkvalue'
    end
    object cdsMasteroldlocation: TStringField
      FieldName = 'oldlocation'
      Size = 100
    end
    object cdsMasternewlocation: TStringField
      FieldName = 'newlocation'
      Size = 100
    end
    object fltfldMasteroldremainrate: TFloatField
      FieldName = 'oldremainrate'
    end
    object fltfldMasternewremainrate: TFloatField
      FieldName = 'newremainrate'
    end
    object fltfldMasteroldremainamt: TFloatField
      FieldName = 'oldremainamt'
    end
    object fltfldMasternewremainamt: TFloatField
      FieldName = 'newremainamt'
    end
    object intgrfldMasternewsumusedmonth: TIntegerField
      FieldName = 'newsumusedmonth'
    end
    object fltfldMasternewsumworkedvalue: TFloatField
      FieldName = 'newsumworkedvalue'
    end
    object intgrfldMasteroldastsubid: TIntegerField
      FieldName = 'oldastsubid'
    end
    object intgrfldMasternewastsubid: TIntegerField
      FieldName = 'newastsubid'
    end
    object fltfldMasteroldprice: TFloatField
      FieldName = 'oldprice'
    end
    object fltfldMasternewprice: TFloatField
      FieldName = 'newprice'
    end
    object fltfldMasteroldquantity: TFloatField
      FieldName = 'oldquantity'
    end
    object fltfldMasternewquantity: TFloatField
      FieldName = 'newquantity'
    end
    object intgrfldMastersubjectid: TIntegerField
      FieldName = 'subjectid'
    end
    object intgrfldMasternewdepsubid: TIntegerField
      FieldName = 'newdepsubid'
    end
    object intgrfldMasterolddepsubid: TIntegerField
      FieldName = 'olddepsubid'
    end
    object intgrfldMasterFfilid: TIntegerField
      FieldName = 'Ffilid'
    end
    object cdsMastername: TStringField
      FieldName = 'name'
      Size = 60
    end
  end
  object dspMaster: TDataSetProvider
    DataSet = qryMainDataSet
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 117
  end
  object qryMainDataSet: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tfb_fixastmodify'
      
        '  (faadjid, modtypeid, fixedassetid, create_by, filid, oldstatus' +
        'id, newstatusid, olddeprmethodid, newdeprmethodid, voucherid, co' +
        'de, changedate, changereason, workunit, oldrawamt, newrawamt, ol' +
        'dplanusemonth, newplanusemonth, oldsumdepramt, newsumdepramt, ol' +
        'dplanworkvalue, newplanworkvalue, oldlocation, newlocation, oldr' +
        'emainrate, newremainrate, oldremainamt, newremainamt, newsumused' +
        'month, newsumworkedvalue, oldastsubid, newastsubid, oldprice, ne' +
        'wprice, oldquantity, newquantity, subjectid, newdepsubid, olddep' +
        'subid)'
      'VALUES'
      
        '  (:faadjid, :modtypeid, :fixedassetid, :create_by, :filid, :old' +
        'statusid, :newstatusid, :olddeprmethodid, :newdeprmethodid, :vou' +
        'cherid, :code, :changedate, :changereason, :workunit, :oldrawamt' +
        ', :newrawamt, :oldplanusemonth, :newplanusemonth, :oldsumdepramt' +
        ', :newsumdepramt, :oldplanworkvalue, :newplanworkvalue, :oldloca' +
        'tion, :newlocation, :oldremainrate, :newremainrate, :oldremainam' +
        't, :newremainamt, :newsumusedmonth, :newsumworkedvalue, :oldasts' +
        'ubid, :newastsubid, :oldprice, :newprice, :oldquantity, :newquan' +
        'tity, :subjectid, :newdepsubid, :olddepsubid)')
    SQLDelete.Strings = (
      'DELETE FROM tfb_fixastmodify'
      'WHERE'
      '  faadjid = :Old_faadjid')
    SQLUpdate.Strings = (
      'UPDATE tfb_fixastmodify'
      'SET'
      
        '  faadjid = :faadjid, modtypeid = :modtypeid, fixedassetid = :fi' +
        'xedassetid, create_by = :create_by, filid = :filid, oldstatusid ' +
        '= :oldstatusid, newstatusid = :newstatusid, olddeprmethodid = :o' +
        'lddeprmethodid, newdeprmethodid = :newdeprmethodid, voucherid = ' +
        ':voucherid, code = :code, changedate = :changedate, changereason' +
        ' = :changereason, workunit = :workunit, oldrawamt = :oldrawamt, ' +
        'newrawamt = :newrawamt, oldplanusemonth = :oldplanusemonth, newp' +
        'lanusemonth = :newplanusemonth, oldsumdepramt = :oldsumdepramt, ' +
        'newsumdepramt = :newsumdepramt, oldplanworkvalue = :oldplanworkv' +
        'alue, newplanworkvalue = :newplanworkvalue, oldlocation = :oldlo' +
        'cation, newlocation = :newlocation, oldremainrate = :oldremainra' +
        'te, newremainrate = :newremainrate, oldremainamt = :oldremainamt' +
        ', newremainamt = :newremainamt, newsumusedmonth = :newsumusedmon' +
        'th, newsumworkedvalue = :newsumworkedvalue, oldastsubid = :oldas' +
        'tsubid, newastsubid = :newastsubid, oldprice = :oldprice, newpri' +
        'ce = :newprice, oldquantity = :oldquantity, newquantity = :newqu' +
        'antity, subjectid = :subjectid, newdepsubid = :newdepsubid, oldd' +
        'epsubid = :olddepsubid'
      'WHERE'
      '  faadjid = :Old_faadjid')
    SQLLock.Strings = (
      'SELECT * FROM tfb_fixastmodify'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  faadjid = :Old_faadjid')
    SQLRefresh.Strings = (
      
        'SELECT faadjid, modtypeid, fixedassetid, create_by, filid, oldst' +
        'atusid, newstatusid, olddeprmethodid, newdeprmethodid, voucherid' +
        ', code, changedate, changereason, workunit, oldrawamt, newrawamt' +
        ', oldplanusemonth, newplanusemonth, oldsumdepramt, newsumdepramt' +
        ', oldplanworkvalue, newplanworkvalue, oldlocation, newlocation, ' +
        'oldremainrate, newremainrate, oldremainamt, newremainamt, newsum' +
        'usedmonth, newsumworkedvalue, oldastsubid, newastsubid, oldprice' +
        ', newprice, oldquantity, newquantity, subjectid, newdepsubid, ol' +
        'ddepsubid FROM tfb_fixastmodify'
      'WHERE'
      '  faadjid = :Old_faadjid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select m.*,f.filid as Ffilid,f.name From tfb_fixastmodify m'
      'left join  tfb_fixedassets f on m.fixedassetid=f.fixedassetid')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 48
    Top = 113
    object intgrfldMainDataSetfaadjid: TIntegerField
      FieldName = 'faadjid'
    end
    object intgrfldMainDataSetmodtypeid: TIntegerField
      FieldName = 'modtypeid'
    end
    object intgrfldMainDataSetfixedassetid: TIntegerField
      FieldName = 'fixedassetid'
    end
    object intgrfldMainDataSetcreate_by: TIntegerField
      FieldName = 'create_by'
    end
    object intgrfldMainDataSetfilid: TIntegerField
      FieldName = 'filid'
    end
    object intgrfldMainDataSetoldstatusid: TIntegerField
      FieldName = 'oldstatusid'
    end
    object intgrfldMainDataSetnewstatusid: TIntegerField
      FieldName = 'newstatusid'
    end
    object intgrfldMainDataSetolddeprmethodid: TIntegerField
      FieldName = 'olddeprmethodid'
    end
    object intgrfldMainDataSetnewdeprmethodid: TIntegerField
      FieldName = 'newdeprmethodid'
    end
    object intgrfldMainDataSetvoucherid: TIntegerField
      FieldName = 'voucherid'
    end
    object qryMainDataSetcode: TStringField
      FieldName = 'code'
      Size = 30
    end
    object qryMainDataSetchangedate: TDateTimeField
      FieldName = 'changedate'
    end
    object qryMainDataSetchangereason: TStringField
      FieldName = 'changereason'
      Size = 100
    end
    object qryMainDataSetworkunit: TStringField
      FieldName = 'workunit'
      Size = 10
    end
    object fltfldMainDataSetoldrawamt: TFloatField
      FieldName = 'oldrawamt'
    end
    object fltfldMainDataSetnewrawamt: TFloatField
      FieldName = 'newrawamt'
    end
    object intgrfldMainDataSetoldplanusemonth: TIntegerField
      FieldName = 'oldplanusemonth'
    end
    object intgrfldMainDataSetnewplanusemonth: TIntegerField
      FieldName = 'newplanusemonth'
    end
    object fltfldMainDataSetoldsumdepramt: TFloatField
      FieldName = 'oldsumdepramt'
    end
    object fltfldMainDataSetnewsumdepramt: TFloatField
      FieldName = 'newsumdepramt'
    end
    object fltfldMainDataSetoldplanworkvalue: TFloatField
      FieldName = 'oldplanworkvalue'
    end
    object fltfldMainDataSetnewplanworkvalue: TFloatField
      FieldName = 'newplanworkvalue'
    end
    object qryMainDataSetoldlocation: TStringField
      FieldName = 'oldlocation'
      Size = 100
    end
    object qryMainDataSetnewlocation: TStringField
      FieldName = 'newlocation'
      Size = 100
    end
    object fltfldMainDataSetoldremainrate: TFloatField
      FieldName = 'oldremainrate'
    end
    object fltfldMainDataSetnewremainrate: TFloatField
      FieldName = 'newremainrate'
    end
    object fltfldMainDataSetoldremainamt: TFloatField
      FieldName = 'oldremainamt'
    end
    object fltfldMainDataSetnewremainamt: TFloatField
      FieldName = 'newremainamt'
    end
    object intgrfldMainDataSetnewsumusedmonth: TIntegerField
      FieldName = 'newsumusedmonth'
    end
    object fltfldMainDataSetnewsumworkedvalue: TFloatField
      FieldName = 'newsumworkedvalue'
    end
    object intgrfldMainDataSetoldastsubid: TIntegerField
      FieldName = 'oldastsubid'
    end
    object intgrfldMainDataSetnewastsubid: TIntegerField
      FieldName = 'newastsubid'
    end
    object fltfldMainDataSetoldprice: TFloatField
      FieldName = 'oldprice'
    end
    object fltfldMainDataSetnewprice: TFloatField
      FieldName = 'newprice'
    end
    object fltfldMainDataSetoldquantity: TFloatField
      FieldName = 'oldquantity'
    end
    object fltfldMainDataSetnewquantity: TFloatField
      FieldName = 'newquantity'
    end
    object intgrfldMainDataSetsubjectid: TIntegerField
      FieldName = 'subjectid'
    end
    object intgrfldMainDataSetnewdepsubid: TIntegerField
      FieldName = 'newdepsubid'
    end
    object intgrfldMainDataSetolddepsubid: TIntegerField
      FieldName = 'olddepsubid'
    end
    object intgrfldMainDataSetFfilid: TIntegerField
      FieldName = 'Ffilid'
    end
    object qryMainDataSetname: TStringField
      FieldName = 'name'
      Size = 60
    end
  end
  object dsTemp: TDataSource
    DataSet = qryTemp
    Left = 589
    Top = 179
  end
  object qryTemp: TUniQuery
    Connection = MainDM.UniConn
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 592
    Top = 120
  end
  object dsModOwerDepOld: TDataSource
    DataSet = cdsModOwerDepOld
    Left = 221
    Top = 177
  end
  object dsModOwerDepNew: TDataSource
    DataSet = cdsModOwerDepNew
    Left = 213
    Top = 225
  end
  object qryModOwerDepNew: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tfb_fixastdept'
      
        '  (deptid, fixedassetid, bno, faadjid, pcode, ownerrate, used, s' +
        'ubjectid)'
      'VALUES'
      
        '  (:deptid, :fixedassetid, :bno, :faadjid, :pcode, :ownerrate, :' +
        'used, :subjectid)')
    SQLDelete.Strings = (
      'DELETE FROM tfb_fixastdept'
      'WHERE'
      '  deptid = :Old_deptid')
    SQLUpdate.Strings = (
      'UPDATE tfb_fixastdept'
      'SET'
      
        '  deptid = :deptid, fixedassetid = :fixedassetid, bno = :bno, fa' +
        'adjid = :faadjid, pcode = :pcode, ownerrate = :ownerrate, used =' +
        ' :used, subjectid = :subjectid'
      'WHERE'
      '  deptid = :Old_deptid')
    SQLLock.Strings = (
      'SELECT * FROM tfb_fixastdept'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  deptid = :Old_deptid')
    SQLRefresh.Strings = (
      
        'SELECT deptid, fixedassetid, bno, faadjid, pcode, ownerrate, use' +
        'd, subjectid FROM tfb_fixastdept'
      'WHERE'
      '  deptid = :deptid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select * From tfb_fixastdept Where FAAdjID=0')
    Left = 61
    Top = 225
    object intgrfldModOwerDepNewdeptid: TIntegerField
      FieldName = 'deptid'
      Required = True
    end
    object intgrfldModOwerDepNewfixedassetid: TIntegerField
      FieldName = 'fixedassetid'
      Required = True
    end
    object intgrfldModOwerDepNewbno: TIntegerField
      FieldName = 'bno'
      Required = True
    end
    object intgrfldModOwerDepNewfaadjid: TIntegerField
      FieldName = 'faadjid'
    end
    object intgrfldModOwerDepNewpcode: TIntegerField
      FieldName = 'pcode'
    end
    object fltfldModOwerDepNewownerrate: TFloatField
      FieldName = 'ownerrate'
    end
    object blnfldModOwerDepNewused: TBooleanField
      FieldName = 'used'
    end
    object intgrfldModOwerDepNewsubjectid: TIntegerField
      FieldName = 'subjectid'
    end
  end
  object qryModOwerDepOld: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tfb_fixastdept'
      
        '  (deptid, fixedassetid, bno, faadjid, pcode, ownerrate, used, s' +
        'ubjectid)'
      'VALUES'
      
        '  (:deptid, :fixedassetid, :bno, :faadjid, :pcode, :ownerrate, :' +
        'used, :subjectid)')
    SQLDelete.Strings = (
      'DELETE FROM tfb_fixastdept'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLUpdate.Strings = (
      'UPDATE tfb_fixastdept'
      'SET'
      
        '  deptid = :deptid, fixedassetid = :fixedassetid, bno = :bno, fa' +
        'adjid = :faadjid, pcode = :pcode, ownerrate = :ownerrate, used =' +
        ' :used, subjectid = :subjectid'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLLock.Strings = (
      'SELECT * FROM tfb_fixastdept'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLRefresh.Strings = (
      
        'SELECT deptid, fixedassetid, bno, faadjid, pcode, ownerrate, use' +
        'd, subjectid FROM tfb_fixastdept'
      'WHERE'
      '  fixedassetid = :fixedassetid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select * From tfb_fixastdept'
      ' Where FixedAssetID=:FixedAssetID And Used=1')
    ReadOnly = True
    Left = 69
    Top = 177
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FixedAssetID'
        Value = nil
      end>
    object intgrfldModOwerDepOlddeptid: TIntegerField
      FieldName = 'deptid'
      Required = True
    end
    object intgrfldModOwerDepOldfixedassetid: TIntegerField
      FieldName = 'fixedassetid'
      Required = True
    end
    object intgrfldModOwerDepOldbno: TIntegerField
      FieldName = 'bno'
      Required = True
    end
    object intgrfldModOwerDepOldfaadjid: TIntegerField
      FieldName = 'faadjid'
    end
    object intgrfldModOwerDepOldpcode: TIntegerField
      FieldName = 'pcode'
    end
    object fltfldModOwerDepOldownerrate: TFloatField
      FieldName = 'ownerrate'
    end
    object blnfldModOwerDepOldused: TBooleanField
      FieldName = 'used'
    end
    object intgrfldModOwerDepOldsubjectid: TIntegerField
      FieldName = 'subjectid'
    end
  end
  object dspModOwerDepNew: TDataSetProvider
    DataSet = qryModOwerDepNew
    UpdateMode = upWhereKeyOnly
    Left = 104
    Top = 224
  end
  object cdsModOwerDepNew: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspModOwerDepNew'
    AfterOpen = cdsModOwerDepNewAfterOpen
    OnNewRecord = cdsModOwerDepNewNewRecord
    Left = 164
    Top = 224
    object intgrfldModOwerDepNewdeptid1: TIntegerField
      FieldName = 'deptid'
      Required = True
    end
    object intgrfldModOwerDepNewfixedassetid1: TIntegerField
      FieldName = 'fixedassetid'
      Required = True
    end
    object intgrfldModOwerDepNewbno1: TIntegerField
      FieldName = 'bno'
      Required = True
    end
    object intgrfldModOwerDepNewfaadjid1: TIntegerField
      FieldName = 'faadjid'
    end
    object intgrfldModOwerDepNewpcode1: TIntegerField
      FieldName = 'pcode'
    end
    object fltfldModOwerDepNewownerrate1: TFloatField
      FieldName = 'ownerrate'
    end
    object blnfldModOwerDepNewused1: TBooleanField
      FieldName = 'used'
    end
    object intgrfldModOwerDepNewsubjectid1: TIntegerField
      FieldName = 'subjectid'
    end
  end
  object cdsModOwerDepOld: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspModOwerDepOld'
    ReadOnly = True
    Left = 172
    Top = 176
  end
  object dspModOwerDepOld: TDataSetProvider
    DataSet = qryModOwerDepOld
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 176
  end
  object qryFixedAst_Change: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tfb_fixedassets'
      
        '  (fixedassetid, filid, fadeltypeid, newtypeid, statusid, fatype' +
        'id, deprmethodid, addvoucherid, delvoucherid, cardcode, assetcod' +
        'e, name, specific, location, useddate, planusemonth, sumusedmont' +
        'h, startsumusedmonth, planworkvalue, sumworkedvalue, startsumwor' +
        'kedvalue, workunit, rawamt, sumdepramt, startsumdepramt, remaina' +
        'mt, remainrate, monthdepramt, monthdeprrate, deproption, clearda' +
        'te, clearincome, clearpay, clearmemo, cleared, addr, vendorname,' +
        ' producename, initflag, startrawamt, astsubid, dprsubid, clearsu' +
        'bid, price, quantity, foreignamt, foreigncurid, unit, custom1, c' +
        'ustom2, custom3, custom4, custom5, pic, pictype, incomesubid, in' +
        'comeaccountid, paysubid, payaccountid, taxsubid, taxamount)'
      'VALUES'
      
        '  (:fixedassetid, :filid, :fadeltypeid, :newtypeid, :statusid, :' +
        'fatypeid, :deprmethodid, :addvoucherid, :delvoucherid, :cardcode' +
        ', :assetcode, :name, :specific, :location, :useddate, :planusemo' +
        'nth, :sumusedmonth, :startsumusedmonth, :planworkvalue, :sumwork' +
        'edvalue, :startsumworkedvalue, :workunit, :rawamt, :sumdepramt, ' +
        ':startsumdepramt, :remainamt, :remainrate, :monthdepramt, :month' +
        'deprrate, :deproption, :cleardate, :clearincome, :clearpay, :cle' +
        'armemo, :cleared, :addr, :vendorname, :producename, :initflag, :' +
        'startrawamt, :astsubid, :dprsubid, :clearsubid, :price, :quantit' +
        'y, :foreignamt, :foreigncurid, :unit, :custom1, :custom2, :custo' +
        'm3, :custom4, :custom5, :pic, :pictype, :incomesubid, :incomeacc' +
        'ountid, :paysubid, :payaccountid, :taxsubid, :taxamount)')
    SQLDelete.Strings = (
      'DELETE FROM tfb_fixedassets'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLUpdate.Strings = (
      'UPDATE tfb_fixedassets'
      'SET'
      
        '  fixedassetid = :fixedassetid, filid = :filid, fadeltypeid = :f' +
        'adeltypeid, newtypeid = :newtypeid, statusid = :statusid, fatype' +
        'id = :fatypeid, deprmethodid = :deprmethodid, addvoucherid = :ad' +
        'dvoucherid, delvoucherid = :delvoucherid, cardcode = :cardcode, ' +
        'assetcode = :assetcode, name = :name, specific = :specific, loca' +
        'tion = :location, useddate = :useddate, planusemonth = :planusem' +
        'onth, sumusedmonth = :sumusedmonth, startsumusedmonth = :startsu' +
        'musedmonth, planworkvalue = :planworkvalue, sumworkedvalue = :su' +
        'mworkedvalue, startsumworkedvalue = :startsumworkedvalue, workun' +
        'it = :workunit, rawamt = :rawamt, sumdepramt = :sumdepramt, star' +
        'tsumdepramt = :startsumdepramt, remainamt = :remainamt, remainra' +
        'te = :remainrate, monthdepramt = :monthdepramt, monthdeprrate = ' +
        ':monthdeprrate, deproption = :deproption, cleardate = :cleardate' +
        ', clearincome = :clearincome, clearpay = :clearpay, clearmemo = ' +
        ':clearmemo, cleared = :cleared, addr = :addr, vendorname = :vend' +
        'orname, producename = :producename, initflag = :initflag, startr' +
        'awamt = :startrawamt, astsubid = :astsubid, dprsubid = :dprsubid' +
        ', clearsubid = :clearsubid, price = :price, quantity = :quantity' +
        ', foreignamt = :foreignamt, foreigncurid = :foreigncurid, unit =' +
        ' :unit, custom1 = :custom1, custom2 = :custom2, custom3 = :custo' +
        'm3, custom4 = :custom4, custom5 = :custom5, pic = :pic, pictype ' +
        '= :pictype, incomesubid = :incomesubid, incomeaccountid = :incom' +
        'eaccountid, paysubid = :paysubid, payaccountid = :payaccountid, ' +
        'taxsubid = :taxsubid, taxamount = :taxamount'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLLock.Strings = (
      'SELECT * FROM tfb_fixedassets'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLRefresh.Strings = (
      
        'SELECT fixedassetid, filid, fadeltypeid, newtypeid, statusid, fa' +
        'typeid, deprmethodid, addvoucherid, delvoucherid, cardcode, asse' +
        'tcode, name, specific, location, useddate, planusemonth, sumused' +
        'month, startsumusedmonth, planworkvalue, sumworkedvalue, startsu' +
        'mworkedvalue, workunit, rawamt, sumdepramt, startsumdepramt, rem' +
        'ainamt, remainrate, monthdepramt, monthdeprrate, deproption, cle' +
        'ardate, clearincome, clearpay, clearmemo, cleared, addr, vendorn' +
        'ame, producename, initflag, startrawamt, astsubid, dprsubid, cle' +
        'arsubid, price, quantity, foreignamt, foreigncurid, unit, custom' +
        '1, custom2, custom3, custom4, custom5, pic, pictype, incomesubid' +
        ', incomeaccountid, paysubid, payaccountid, taxsubid, taxamount F' +
        'ROM tfb_fixedassets'
      'WHERE'
      '  fixedassetid = :fixedassetid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select * From tfb_fixedassets')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 61
    Top = 257
    object intgrfldFixedAst_Changefixedassetid: TIntegerField
      FieldName = 'fixedassetid'
      Required = True
    end
    object intgrfldFixedAst_Changefilid: TIntegerField
      FieldName = 'filid'
      Required = True
    end
    object intgrfldFixedAst_Changefadeltypeid: TIntegerField
      FieldName = 'fadeltypeid'
    end
    object intgrfldFixedAst_Changenewtypeid: TIntegerField
      FieldName = 'newtypeid'
    end
    object intgrfldFixedAst_Changestatusid: TIntegerField
      FieldName = 'statusid'
    end
    object intgrfldFixedAst_Changefatypeid: TIntegerField
      FieldName = 'fatypeid'
    end
    object intgrfldFixedAst_Changedeprmethodid: TIntegerField
      FieldName = 'deprmethodid'
    end
    object intgrfldFixedAst_Changeaddvoucherid: TIntegerField
      FieldName = 'addvoucherid'
    end
    object intgrfldFixedAst_Changedelvoucherid: TIntegerField
      FieldName = 'delvoucherid'
    end
    object qryFixedAst_Changecardcode: TStringField
      FieldName = 'cardcode'
      Required = True
      Size = 40
    end
    object qryFixedAst_Changeassetcode: TStringField
      FieldName = 'assetcode'
      Required = True
      Size = 40
    end
    object qryFixedAst_Changename: TStringField
      FieldName = 'name'
      Required = True
      Size = 60
    end
    object qryFixedAst_Changespecific: TStringField
      FieldName = 'specific'
      Size = 60
    end
    object qryFixedAst_Changelocation: TStringField
      FieldName = 'location'
      Size = 60
    end
    object qryFixedAst_Changeuseddate: TDateTimeField
      FieldName = 'useddate'
      Required = True
    end
    object intgrfldFixedAst_Changeplanusemonth: TIntegerField
      FieldName = 'planusemonth'
    end
    object intgrfldFixedAst_Changesumusedmonth: TIntegerField
      FieldName = 'sumusedmonth'
    end
    object intgrfldFixedAst_Changestartsumusedmonth: TIntegerField
      FieldName = 'startsumusedmonth'
    end
    object fltfldFixedAst_Changeplanworkvalue: TFloatField
      FieldName = 'planworkvalue'
    end
    object fltfldFixedAst_Changesumworkedvalue: TFloatField
      FieldName = 'sumworkedvalue'
    end
    object fltfldFixedAst_Changestartsumworkedvalue: TFloatField
      FieldName = 'startsumworkedvalue'
    end
    object qryFixedAst_Changeworkunit: TStringField
      FieldName = 'workunit'
      Size = 30
    end
    object fltfldFixedAst_Changerawamt: TFloatField
      FieldName = 'rawamt'
      Required = True
    end
    object fltfldFixedAst_Changesumdepramt: TFloatField
      FieldName = 'sumdepramt'
      Required = True
    end
    object fltfldFixedAst_Changestartsumdepramt: TFloatField
      FieldName = 'startsumdepramt'
    end
    object fltfldFixedAst_Changeremainamt: TFloatField
      FieldName = 'remainamt'
      Required = True
    end
    object fltfldFixedAst_Changeremainrate: TFloatField
      FieldName = 'remainrate'
      Required = True
    end
    object fltfldFixedAst_Changemonthdepramt: TFloatField
      FieldName = 'monthdepramt'
      Required = True
    end
    object fltfldFixedAst_Changemonthdeprrate: TFloatField
      FieldName = 'monthdeprrate'
      Required = True
    end
    object blnfldFixedAst_Changedeproption: TBooleanField
      FieldName = 'deproption'
    end
    object qryFixedAst_Changecleardate: TDateTimeField
      FieldName = 'cleardate'
    end
    object fltfldFixedAst_Changeclearincome: TFloatField
      FieldName = 'clearincome'
    end
    object fltfldFixedAst_Changeclearpay: TFloatField
      FieldName = 'clearpay'
    end
    object qryFixedAst_Changeclearmemo: TStringField
      FieldName = 'clearmemo'
      Size = 60
    end
    object blnfldFixedAst_Changecleared: TBooleanField
      FieldName = 'cleared'
      Required = True
    end
    object qryFixedAst_Changeaddr: TStringField
      FieldName = 'addr'
      Size = 60
    end
    object qryFixedAst_Changevendorname: TStringField
      FieldName = 'vendorname'
      Size = 60
    end
    object qryFixedAst_Changeproducename: TStringField
      FieldName = 'producename'
      Size = 60
    end
    object blnfldFixedAst_Changeinitflag: TBooleanField
      FieldName = 'initflag'
      Required = True
    end
    object fltfldFixedAst_Changestartrawamt: TFloatField
      FieldName = 'startrawamt'
    end
    object intgrfldFixedAst_Changeastsubid: TIntegerField
      FieldName = 'astsubid'
    end
    object intgrfldFixedAst_Changedprsubid: TIntegerField
      FieldName = 'dprsubid'
    end
    object intgrfldFixedAst_Changeclearsubid: TIntegerField
      FieldName = 'clearsubid'
    end
    object fltfldFixedAst_Changeprice: TFloatField
      FieldName = 'price'
      Required = True
    end
    object fltfldFixedAst_Changequantity: TFloatField
      FieldName = 'quantity'
      Required = True
    end
    object fltfldFixedAst_Changeforeignamt: TFloatField
      FieldName = 'foreignamt'
    end
    object intgrfldFixedAst_Changeforeigncurid: TIntegerField
      FieldName = 'foreigncurid'
    end
    object qryFixedAst_Changeunit: TStringField
      FieldName = 'unit'
      Size = 30
    end
    object qryFixedAst_Changecustom1: TStringField
      FieldName = 'custom1'
      Size = 60
    end
    object qryFixedAst_Changecustom2: TStringField
      FieldName = 'custom2'
      Size = 60
    end
    object qryFixedAst_Changecustom3: TStringField
      FieldName = 'custom3'
      Size = 60
    end
    object qryFixedAst_Changecustom4: TStringField
      FieldName = 'custom4'
      Size = 60
    end
    object qryFixedAst_Changecustom5: TStringField
      FieldName = 'custom5'
      Size = 60
    end
    object qryFixedAst_Changepic: TBlobField
      FieldName = 'pic'
    end
    object qryFixedAst_Changepictype: TStringField
      FieldName = 'pictype'
      Size = 6
    end
    object intgrfldFixedAst_Changeincomesubid: TIntegerField
      FieldName = 'incomesubid'
    end
    object intgrfldFixedAst_Changeincomeaccountid: TIntegerField
      FieldName = 'incomeaccountid'
    end
    object intgrfldFixedAst_Changepaysubid: TIntegerField
      FieldName = 'paysubid'
    end
    object intgrfldFixedAst_Changepayaccountid: TIntegerField
      FieldName = 'payaccountid'
    end
    object intgrfldFixedAst_Changetaxsubid: TIntegerField
      FieldName = 'taxsubid'
    end
    object fltfldFixedAst_Changetaxamount: TFloatField
      FieldName = 'taxamount'
    end
  end
  object dspFixedAst_Change: TDataSetProvider
    DataSet = qryFixedAst_Change
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 256
  end
  object cdsFixedAst_Change: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspFixedAst_Change'
    Left = 164
    Top = 256
  end
  object dsFixedAst_Change: TDataSource
    DataSet = cdsFixedAst_Change
    Left = 213
    Top = 257
  end
  object qryFixedAsset_WorkLoad: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tfb_fixedassets'
      
        '  (fixedassetid, filid, fadeltypeid, newtypeid, statusid, fatype' +
        'id, deprmethodid, addvoucherid, delvoucherid, cardcode, assetcod' +
        'e, name, specific, location, useddate, planusemonth, sumusedmont' +
        'h, startsumusedmonth, planworkvalue, sumworkedvalue, startsumwor' +
        'kedvalue, workunit, rawamt, sumdepramt, startsumdepramt, remaina' +
        'mt, remainrate, monthdepramt, monthdeprrate, deproption, clearda' +
        'te, clearincome, clearpay, clearmemo, cleared, addr, vendorname,' +
        ' producename, initflag, startrawamt, astsubid, dprsubid, clearsu' +
        'bid, price, quantity, foreignamt, foreigncurid, unit, custom1, c' +
        'ustom2, custom3, custom4, custom5, pic, pictype, incomesubid, in' +
        'comeaccountid, paysubid, payaccountid, taxsubid, taxamount)'
      'VALUES'
      
        '  (:fixedassetid, :filid, :fadeltypeid, :newtypeid, :statusid, :' +
        'fatypeid, :deprmethodid, :addvoucherid, :delvoucherid, :cardcode' +
        ', :assetcode, :name, :specific, :location, :useddate, :planusemo' +
        'nth, :sumusedmonth, :startsumusedmonth, :planworkvalue, :sumwork' +
        'edvalue, :startsumworkedvalue, :workunit, :rawamt, :sumdepramt, ' +
        ':startsumdepramt, :remainamt, :remainrate, :monthdepramt, :month' +
        'deprrate, :deproption, :cleardate, :clearincome, :clearpay, :cle' +
        'armemo, :cleared, :addr, :vendorname, :producename, :initflag, :' +
        'startrawamt, :astsubid, :dprsubid, :clearsubid, :price, :quantit' +
        'y, :foreignamt, :foreigncurid, :unit, :custom1, :custom2, :custo' +
        'm3, :custom4, :custom5, :pic, :pictype, :incomesubid, :incomeacc' +
        'ountid, :paysubid, :payaccountid, :taxsubid, :taxamount)')
    SQLDelete.Strings = (
      'DELETE FROM tfb_fixedassets'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLUpdate.Strings = (
      'UPDATE tfb_fixedassets'
      'SET'
      
        '  fixedassetid = :fixedassetid, filid = :filid, fadeltypeid = :f' +
        'adeltypeid, newtypeid = :newtypeid, statusid = :statusid, fatype' +
        'id = :fatypeid, deprmethodid = :deprmethodid, addvoucherid = :ad' +
        'dvoucherid, delvoucherid = :delvoucherid, cardcode = :cardcode, ' +
        'assetcode = :assetcode, name = :name, specific = :specific, loca' +
        'tion = :location, useddate = :useddate, planusemonth = :planusem' +
        'onth, sumusedmonth = :sumusedmonth, startsumusedmonth = :startsu' +
        'musedmonth, planworkvalue = :planworkvalue, sumworkedvalue = :su' +
        'mworkedvalue, startsumworkedvalue = :startsumworkedvalue, workun' +
        'it = :workunit, rawamt = :rawamt, sumdepramt = :sumdepramt, star' +
        'tsumdepramt = :startsumdepramt, remainamt = :remainamt, remainra' +
        'te = :remainrate, monthdepramt = :monthdepramt, monthdeprrate = ' +
        ':monthdeprrate, deproption = :deproption, cleardate = :cleardate' +
        ', clearincome = :clearincome, clearpay = :clearpay, clearmemo = ' +
        ':clearmemo, cleared = :cleared, addr = :addr, vendorname = :vend' +
        'orname, producename = :producename, initflag = :initflag, startr' +
        'awamt = :startrawamt, astsubid = :astsubid, dprsubid = :dprsubid' +
        ', clearsubid = :clearsubid, price = :price, quantity = :quantity' +
        ', foreignamt = :foreignamt, foreigncurid = :foreigncurid, unit =' +
        ' :unit, custom1 = :custom1, custom2 = :custom2, custom3 = :custo' +
        'm3, custom4 = :custom4, custom5 = :custom5, pic = :pic, pictype ' +
        '= :pictype, incomesubid = :incomesubid, incomeaccountid = :incom' +
        'eaccountid, paysubid = :paysubid, payaccountid = :payaccountid, ' +
        'taxsubid = :taxsubid, taxamount = :taxamount'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLLock.Strings = (
      'SELECT * FROM tfb_fixedassets'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLRefresh.Strings = (
      
        'SELECT fixedassetid, filid, fadeltypeid, newtypeid, statusid, fa' +
        'typeid, deprmethodid, addvoucherid, delvoucherid, cardcode, asse' +
        'tcode, name, specific, location, useddate, planusemonth, sumused' +
        'month, startsumusedmonth, planworkvalue, sumworkedvalue, startsu' +
        'mworkedvalue, workunit, rawamt, sumdepramt, startsumdepramt, rem' +
        'ainamt, remainrate, monthdepramt, monthdeprrate, deproption, cle' +
        'ardate, clearincome, clearpay, clearmemo, cleared, addr, vendorn' +
        'ame, producename, initflag, startrawamt, astsubid, dprsubid, cle' +
        'arsubid, price, quantity, foreignamt, foreigncurid, unit, custom' +
        '1, custom2, custom3, custom4, custom5, pic, pictype, incomesubid' +
        ', incomeaccountid, paysubid, payaccountid, taxsubid, taxamount F' +
        'ROM tfb_fixedassets'
      'WHERE'
      '  fixedassetid = :fixedassetid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select * From tfb_fixedassets')
    Left = 53
    Top = 305
    object intgrfld7: TIntegerField
      FieldName = 'deptid'
      Required = True
    end
    object intgrfld8: TIntegerField
      FieldName = 'fixedassetid'
      Required = True
    end
    object intgrfld9: TIntegerField
      FieldName = 'bno'
      Required = True
    end
    object intgrfld10: TIntegerField
      FieldName = 'faadjid'
    end
    object intgrfld11: TIntegerField
      FieldName = 'pcode'
    end
    object fltfld2: TFloatField
      FieldName = 'ownerrate'
    end
    object blnfld2: TBooleanField
      FieldName = 'used'
    end
    object intgrfld12: TIntegerField
      FieldName = 'subjectid'
    end
  end
  object dspFixedAsset_WorkLoad: TDataSetProvider
    DataSet = qryFixedAsset_WorkLoad
    UpdateMode = upWhereKeyOnly
    Left = 104
    Top = 304
  end
  object cdsFixedAsset_WorkLoad: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspFixedAsset_WorkLoad'
    Left = 156
    Top = 304
  end
  object dsFixedAsset_WorkLoad: TDataSource
    DataSet = cdsFixedAsset_WorkLoad
    Left = 205
    Top = 305
  end
  object dsOwnerDep: TDataSource
    DataSet = qryOwnerDep
    Left = 125
    Top = 379
  end
  object qryOwnerDep: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tfb_fixastdept'
      
        '  (deptid, fixedassetid, bno, faadjid, pcode, ownerrate, used, s' +
        'ubjectid)'
      'VALUES'
      
        '  (:deptid, :fixedassetid, :bno, :faadjid, :pcode, :ownerrate, :' +
        'used, :subjectid)')
    SQLDelete.Strings = (
      'DELETE FROM tfb_fixastdept'
      'WHERE'
      '  deptid = :Old_deptid')
    SQLUpdate.Strings = (
      'UPDATE tfb_fixastdept'
      'SET'
      
        '  deptid = :deptid, fixedassetid = :fixedassetid, bno = :bno, fa' +
        'adjid = :faadjid, pcode = :pcode, ownerrate = :ownerrate, used =' +
        ' :used, subjectid = :subjectid'
      'WHERE'
      '  deptid = :Old_deptid')
    SQLLock.Strings = (
      'SELECT * FROM tfb_fixastdept'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  deptid = :Old_deptid')
    SQLRefresh.Strings = (
      
        'SELECT deptid, fixedassetid, bno, faadjid, pcode, ownerrate, use' +
        'd, subjectid FROM tfb_fixastdept'
      'WHERE'
      '  deptid = :Old_deptid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select * From tfb_fixastdept'
      ' Where FixedAssetID=:FixedAssetID And Used=1')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 64
    Top = 377
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FixedAssetID'
        Value = nil
      end>
    object intgrfldOwnerDepdeptid: TIntegerField
      FieldName = 'deptid'
    end
    object intgrfldOwnerDepfixedassetid: TIntegerField
      FieldName = 'fixedassetid'
    end
    object intgrfldOwnerDepbno: TIntegerField
      FieldName = 'bno'
    end
    object intgrfldOwnerDepfaadjid: TIntegerField
      FieldName = 'faadjid'
    end
    object intgrfldOwnerDeppcode: TIntegerField
      FieldName = 'pcode'
    end
    object fltfldOwnerDepownerrate: TFloatField
      FieldName = 'ownerrate'
    end
    object blnfldOwnerDepused: TBooleanField
      FieldName = 'used'
    end
    object intgrfldOwnerDepsubjectid: TIntegerField
      FieldName = 'subjectid'
    end
  end
  object dsAsset: TDataSource
    DataSet = qryAsset
    Left = 53
    Top = 51
  end
  object qryAsset: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tfb_fixedassets'
      
        '  (fixedassetid, filid, fadeltypeid, newtypeid, statusid, fatype' +
        'id, deprmethodid, addvoucherid, delvoucherid, cardcode, assetcod' +
        'e, name, specific, location, useddate, planusemonth, sumusedmont' +
        'h, startsumusedmonth, planworkvalue, sumworkedvalue, startsumwor' +
        'kedvalue, workunit, rawamt, sumdepramt, startsumdepramt, remaina' +
        'mt, remainrate, monthdepramt, monthdeprrate, deproption, clearda' +
        'te, clearincome, clearpay, clearmemo, cleared, addr, vendorname,' +
        ' producename, initflag, startrawamt, astsubid, dprsubid, clearsu' +
        'bid, price, quantity, foreignamt, foreigncurid, unit, custom1, c' +
        'ustom2, custom3, custom4, custom5, pic, pictype, incomesubid, in' +
        'comeaccountid, paysubid, payaccountid, taxsubid, taxamount)'
      'VALUES'
      
        '  (:fixedassetid, :filid, :fadeltypeid, :newtypeid, :statusid, :' +
        'fatypeid, :deprmethodid, :addvoucherid, :delvoucherid, :cardcode' +
        ', :assetcode, :name, :specific, :location, :useddate, :planusemo' +
        'nth, :sumusedmonth, :startsumusedmonth, :planworkvalue, :sumwork' +
        'edvalue, :startsumworkedvalue, :workunit, :rawamt, :sumdepramt, ' +
        ':startsumdepramt, :remainamt, :remainrate, :monthdepramt, :month' +
        'deprrate, :deproption, :cleardate, :clearincome, :clearpay, :cle' +
        'armemo, :cleared, :addr, :vendorname, :producename, :initflag, :' +
        'startrawamt, :astsubid, :dprsubid, :clearsubid, :price, :quantit' +
        'y, :foreignamt, :foreigncurid, :unit, :custom1, :custom2, :custo' +
        'm3, :custom4, :custom5, :pic, :pictype, :incomesubid, :incomeacc' +
        'ountid, :paysubid, :payaccountid, :taxsubid, :taxamount)')
    SQLDelete.Strings = (
      'DELETE FROM tfb_fixedassets'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLUpdate.Strings = (
      'UPDATE tfb_fixedassets'
      'SET'
      
        '  fixedassetid = :fixedassetid, filid = :filid, fadeltypeid = :f' +
        'adeltypeid, newtypeid = :newtypeid, statusid = :statusid, fatype' +
        'id = :fatypeid, deprmethodid = :deprmethodid, addvoucherid = :ad' +
        'dvoucherid, delvoucherid = :delvoucherid, cardcode = :cardcode, ' +
        'assetcode = :assetcode, name = :name, specific = :specific, loca' +
        'tion = :location, useddate = :useddate, planusemonth = :planusem' +
        'onth, sumusedmonth = :sumusedmonth, startsumusedmonth = :startsu' +
        'musedmonth, planworkvalue = :planworkvalue, sumworkedvalue = :su' +
        'mworkedvalue, startsumworkedvalue = :startsumworkedvalue, workun' +
        'it = :workunit, rawamt = :rawamt, sumdepramt = :sumdepramt, star' +
        'tsumdepramt = :startsumdepramt, remainamt = :remainamt, remainra' +
        'te = :remainrate, monthdepramt = :monthdepramt, monthdeprrate = ' +
        ':monthdeprrate, deproption = :deproption, cleardate = :cleardate' +
        ', clearincome = :clearincome, clearpay = :clearpay, clearmemo = ' +
        ':clearmemo, cleared = :cleared, addr = :addr, vendorname = :vend' +
        'orname, producename = :producename, initflag = :initflag, startr' +
        'awamt = :startrawamt, astsubid = :astsubid, dprsubid = :dprsubid' +
        ', clearsubid = :clearsubid, price = :price, quantity = :quantity' +
        ', foreignamt = :foreignamt, foreigncurid = :foreigncurid, unit =' +
        ' :unit, custom1 = :custom1, custom2 = :custom2, custom3 = :custo' +
        'm3, custom4 = :custom4, custom5 = :custom5, pic = :pic, pictype ' +
        '= :pictype, incomesubid = :incomesubid, incomeaccountid = :incom' +
        'eaccountid, paysubid = :paysubid, payaccountid = :payaccountid, ' +
        'taxsubid = :taxsubid, taxamount = :taxamount'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLLock.Strings = (
      'SELECT * FROM tfb_fixedassets'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLRefresh.Strings = (
      
        'SELECT fixedassetid, filid, fadeltypeid, newtypeid, statusid, fa' +
        'typeid, deprmethodid, addvoucherid, delvoucherid, cardcode, asse' +
        'tcode, name, specific, location, useddate, planusemonth, sumused' +
        'month, startsumusedmonth, planworkvalue, sumworkedvalue, startsu' +
        'mworkedvalue, workunit, rawamt, sumdepramt, startsumdepramt, rem' +
        'ainamt, remainrate, monthdepramt, monthdeprrate, deproption, cle' +
        'ardate, clearincome, clearpay, clearmemo, cleared, addr, vendorn' +
        'ame, producename, initflag, startrawamt, astsubid, dprsubid, cle' +
        'arsubid, price, quantity, foreignamt, foreigncurid, unit, custom' +
        '1, custom2, custom3, custom4, custom5, pic, pictype, incomesubid' +
        ', incomeaccountid, paysubid, payaccountid, taxsubid, taxamount F' +
        'ROM tfb_fixedassets'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQL.Strings = (
      'Select * From tfb_fixedassets Where Cleared=0')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 8
    Top = 49
    object intgrfldAssetfixedassetid: TIntegerField
      FieldName = 'fixedassetid'
    end
    object intgrfldAssetfilid: TIntegerField
      FieldName = 'filid'
    end
    object intgrfldAssetfadeltypeid: TIntegerField
      FieldName = 'fadeltypeid'
    end
    object intgrfldAssetnewtypeid: TIntegerField
      FieldName = 'newtypeid'
    end
    object intgrfldAssetstatusid: TIntegerField
      FieldName = 'statusid'
    end
    object intgrfldAssetfatypeid: TIntegerField
      FieldName = 'fatypeid'
    end
    object intgrfldAssetdeprmethodid: TIntegerField
      FieldName = 'deprmethodid'
    end
    object intgrfldAssetaddvoucherid: TIntegerField
      FieldName = 'addvoucherid'
    end
    object intgrfldAssetdelvoucherid: TIntegerField
      FieldName = 'delvoucherid'
    end
    object qryAssetcardcode: TStringField
      FieldName = 'cardcode'
      Size = 40
    end
    object qryAssetassetcode: TStringField
      FieldName = 'assetcode'
      Size = 40
    end
    object qryAssetname: TStringField
      FieldName = 'name'
      Size = 60
    end
    object qryAssetspecific: TStringField
      FieldName = 'specific'
      Size = 60
    end
    object qryAssetlocation: TStringField
      FieldName = 'location'
      Size = 60
    end
    object qryAssetuseddate: TDateTimeField
      FieldName = 'useddate'
    end
    object intgrfldAssetplanusemonth: TIntegerField
      FieldName = 'planusemonth'
    end
    object intgrfldAssetsumusedmonth: TIntegerField
      FieldName = 'sumusedmonth'
    end
    object intgrfldAssetstartsumusedmonth: TIntegerField
      FieldName = 'startsumusedmonth'
    end
    object fltfldAssetplanworkvalue: TFloatField
      FieldName = 'planworkvalue'
    end
    object fltfldAssetsumworkedvalue: TFloatField
      FieldName = 'sumworkedvalue'
    end
    object fltfldAssetstartsumworkedvalue: TFloatField
      FieldName = 'startsumworkedvalue'
    end
    object qryAssetworkunit: TStringField
      FieldName = 'workunit'
      Size = 30
    end
    object fltfldAssetrawamt: TFloatField
      FieldName = 'rawamt'
    end
    object fltfldAssetsumdepramt: TFloatField
      FieldName = 'sumdepramt'
    end
    object fltfldAssetstartsumdepramt: TFloatField
      FieldName = 'startsumdepramt'
    end
    object fltfldAssetremainamt: TFloatField
      FieldName = 'remainamt'
    end
    object fltfldAssetremainrate: TFloatField
      FieldName = 'remainrate'
    end
    object fltfldAssetmonthdepramt: TFloatField
      FieldName = 'monthdepramt'
    end
    object fltfldAssetmonthdeprrate: TFloatField
      FieldName = 'monthdeprrate'
    end
    object blnfldAssetdeproption: TBooleanField
      FieldName = 'deproption'
    end
    object qryAssetcleardate: TDateTimeField
      FieldName = 'cleardate'
    end
    object fltfldAssetclearincome: TFloatField
      FieldName = 'clearincome'
    end
    object fltfldAssetclearpay: TFloatField
      FieldName = 'clearpay'
    end
    object qryAssetclearmemo: TStringField
      FieldName = 'clearmemo'
      Size = 60
    end
    object blnfldAssetcleared: TBooleanField
      FieldName = 'cleared'
    end
    object qryAssetaddr: TStringField
      FieldName = 'addr'
      Size = 60
    end
    object qryAssetvendorname: TStringField
      FieldName = 'vendorname'
      Size = 60
    end
    object qryAssetproducename: TStringField
      FieldName = 'producename'
      Size = 60
    end
    object blnfldAssetinitflag: TBooleanField
      FieldName = 'initflag'
    end
    object fltfldAssetstartrawamt: TFloatField
      FieldName = 'startrawamt'
    end
    object intgrfldAssetastsubid: TIntegerField
      FieldName = 'astsubid'
    end
    object intgrfldAssetdprsubid: TIntegerField
      FieldName = 'dprsubid'
    end
    object intgrfldAssetclearsubid: TIntegerField
      FieldName = 'clearsubid'
    end
    object fltfldAssetprice: TFloatField
      FieldName = 'price'
    end
    object fltfldAssetquantity: TFloatField
      FieldName = 'quantity'
    end
    object fltfldAssetforeignamt: TFloatField
      FieldName = 'foreignamt'
    end
    object intgrfldAssetforeigncurid: TIntegerField
      FieldName = 'foreigncurid'
    end
    object qryAssetunit: TStringField
      FieldName = 'unit'
      Size = 30
    end
    object qryAssetcustom1: TStringField
      FieldName = 'custom1'
      Size = 60
    end
    object qryAssetcustom2: TStringField
      FieldName = 'custom2'
      Size = 60
    end
    object qryAssetcustom3: TStringField
      FieldName = 'custom3'
      Size = 60
    end
    object qryAssetcustom4: TStringField
      FieldName = 'custom4'
      Size = 60
    end
    object qryAssetcustom5: TStringField
      FieldName = 'custom5'
      Size = 60
    end
    object qryAssetpic: TBlobField
      FieldName = 'pic'
    end
    object qryAssetpictype: TStringField
      FieldName = 'pictype'
      Size = 6
    end
    object intgrfldAssetincomesubid: TIntegerField
      FieldName = 'incomesubid'
    end
    object intgrfldAssetincomeaccountid: TIntegerField
      FieldName = 'incomeaccountid'
    end
    object intgrfldAssetpaysubid: TIntegerField
      FieldName = 'paysubid'
    end
    object intgrfldAssetpayaccountid: TIntegerField
      FieldName = 'payaccountid'
    end
    object intgrfldAssettaxsubid: TIntegerField
      FieldName = 'taxsubid'
    end
    object fltfldAssettaxamount: TFloatField
      FieldName = 'taxamount'
    end
  end
  object pmGrid: TPopupMenu
    OnPopup = pmGridPopup
    Left = 589
    Top = 242
    object mniAdd: TMenuItem
      Caption = #26032#22686
      OnClick = mniAddClick
    end
    object mniDel: TMenuItem
      Caption = #21024#38500
      OnClick = mniDelClick
    end
  end
end
